﻿Public Class frmDelayStart

    Private Sub btnSetDelay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetDelay.Click
        Me.pbDelayIcon.BackColor = Color.Orange
        Me.Hide()
        FrmControlPanel.lblDelayStatus.Text = "DELAY until " + Format(Me.nudHr.Value, "00") + ":" + Format(Me.nudMin.Value, "00")
        FrmControlPanel.pbDelay.BackColor = Color.Orange
        FrmControlPanel.tmrDelay.Enabled = True
    End Sub

    Private Sub btnClearDelay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearDelay.Click
        Me.pbDelayIcon.BackColor = Color.DarkGray
        Me.Hide()
        FrmControlPanel.lblDelayStatus.Text = "Delay OFF"
        FrmControlPanel.pbDelay.BackColor = Color.DarkGray
        FrmControlPanel.tmrDelay.Enabled = False
    End Sub
End Class